Public Class MainForm1

    Private Sub mnuLine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuLine.Click
        Dim frm As Form2
        frm = Form2.Instance
        frm.MdiParent = Me
        frm.Activate()
        frm.WindowState = FormWindowState.Maximized
        frm.Show()
    End Sub

    Private Sub mnuCircle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuCircle.Click
        Dim frm As Form3
        frm = Form3.Instance
        frm.MdiParent = Me
        frm.Activate()
        frm.WindowState = FormWindowState.Maximized
        frm.Show()
    End Sub

    Private Sub mnuExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuExit.Click
        Me.Close()
    End Sub

    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem1.Click
        Dim frm As New HDAlarmForm1
        frm.MdiParent = Me
        frm.Activate()
        frm.WindowState = FormWindowState.Maximized
        frm.Show()
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Dim frm As New CopyDateform
        frm.Owner = Me
        frm.ShowDialog()
    End Sub
End Class